home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 51 / Amiga Format CD51 (2000-03-10)(Future Publishing)(GB)[!][issue 2000-04].iso / -serious- / cd-rom / optympegsave / tools / savempeg < prev   
AmigaDOS Script File  |  2000-01-31  |  3KB  |  94 lines
  1. .key FREQ/A,MODE/A,BIT/A,OUT/A,PATH
  2. .bra {
  3. .ket }
  4. .def PATH Tools
  5.  
  6. ; ««« SaveMPeg »»» - modified by Michal Jarzynski to use with OptyMPEGSave 1.2b
  7. ;   1999.XII.05
  8.  
  9. failat 21
  10.  
  11. set quality "-f" ; "-f" - lower quality, faster encode
  12.                  ; "  " - normal quality
  13.                  ; "-h" - high quality, lower encode
  14.  
  15. set MusicIn  MusicIn   ; name of MusicIn encoder program (example "C:MusicIn")
  16. set LAME     LAME      ; name of LAME encoder program (example "C:LAME.040" or "runelf C:LAME.elf")
  17.  
  18. cd {PATH}
  19. Stack 120000
  20. ChangeTaskPri -1
  21. OptyMPEGSave MODE {MODE} MP3
  22. IF WARN
  23.  RequestChoice "OptyMPEG Save" "Click Abort*nin OptyCDPlayer window*nto continue." "OK"
  24.  ReadFile PIPE:OptyCDPlayer
  25. ELSE
  26.  ;$MusicIn -s {FREQ} -l $OptyLAYER -m $OptyMODE -b $OptyBITRATE PIPE:OptyCDPlayer {OUT}
  27.  ;$MusicIn -s {FREQ} -l 2 -m {MODE} -b {BIT} PIPE:OptyCDPlayer {OUT}
  28.  
  29.  IF $OptyMODE EQ "m" ; mono
  30.   $MusicIn -s {FREQ} -l $OptyLAYER -m $OptyMODE -b $OptyBITRATE PIPE:OptyCDPlayer {OUT}
  31.    IF WARN
  32.     RequestChoice "OptyMPEG Save Error" "Can't run MusicIn !*nClick Abort*nin OptyCDPlayer window*nto continue." "OK"
  33.     ReadFile PIPE:OptyCDPlayer
  34.    ENDIF
  35.  ENDIF
  36.  
  37.  IF $OptyMODE EQ "s" ; stereo
  38.   $MusicIn -s {FREQ} -l $OptyLAYER -m $OptyMODE -b $OptyBITRATE PIPE:OptyCDPlayer {OUT}
  39.    IF WARN
  40.     RequestChoice "OptyMPEG Save Error" "Can't run MusicIn !*nClick Abort*nin OptyCDPlayer window*nto continue." "OK"
  41.     ReadFile PIPE:OptyCDPlayer
  42.    ENDIF
  43.  ENDIF
  44.  
  45.  IF $OptyMODE EQ "d" ; dual channel
  46.   $MusicIn -s {FREQ} -l $OptyLAYER -m $OptyMODE -b $OptyBITRATE PIPE:OptyCDPlayer {OUT}
  47.    IF WARN
  48.     RequestChoice "OptyMPEG Save Error" "Can't run MusicIn !*nClick Abort*nin OptyCDPlayer window*nto continue." "OK"
  49.     ReadFile PIPE:OptyCDPlayer
  50.    ENDIF
  51.  ENDIF
  52.  
  53.  IF $OptyMODE EQ "j" ; join steeo
  54.   $MusicIn -s {FREQ} -l $OptyLAYER -m $OptyMODE -b $OptyBITRATE PIPE:OptyCDPlayer {OUT}
  55.    IF WARN
  56.     RequestChoice "OptyMPEG Save Error" "Can't run MusicIn !*nClick Abort*nin OptyCDPlayer window*nto continue." "OK"
  57.     ReadFile PIPE:OptyCDPlayer
  58.    ENDIF
  59.  ENDIF
  60.  
  61.  IF $OptyMODE EQ "1" ; LAME mono
  62.   $LAME -m m -r -s {FREQ} -b $OptyBITRATE $quality PIPE:OptyCDPlayer {OUT}
  63.    IF WARN
  64.     RequestChoice "OptyMPEG Save Error" "Can't run LAME !*nClick Abort*nin OptyCDPlayer window*nto continue." "OK"
  65.     ReadFile PIPE:OptyCDPlayer
  66.    ENDIF
  67.  ENDIF
  68.  
  69.  IF $OptyMODE EQ "2" ; LAME stereo
  70.   $LAME -m s -r -s {FREQ} -b $OptyBITRATE $quality PIPE:OptyCDPlayer {OUT}
  71.    IF WARN
  72.     RequestChoice "OptyMPEG Save Error" "Can't run LAME !*nClick Abort*nin OptyCDPlayer window*nto continue." "OK"
  73.     ReadFile PIPE:OptyCDPlayer
  74.    ENDIF
  75.  ENDIF
  76.  
  77.  IF $OptyMODE EQ "3" ; LAME join stereo
  78.   $LAME -m j -r -s {FREQ} -b $OptyBITRATE $quality PIPE:OptyCDPlayer {OUT}
  79.    IF WARN
  80.     RequestChoice "OptyMPEG Save Error" "Can't run LAME !*nClick Abort*nin OptyCDPlayer window*nto continue." "OK"
  81.     ReadFile PIPE:OptyCDPlayer
  82.    ENDIF
  83.  ENDIF
  84.  
  85.  IF $OptyMODE EQ "4" ; LAME ms-stereo
  86.   $LAME -m f -r -s {FREQ} -b $OptyBITRATE $quality PIPE:OptyCDPlayer {OUT}
  87.    IF WARN
  88.     RequestChoice "OptyMPEG Save Error" "Can't run LAME !*nClick Abort*nin OptyCDPlayer window*nto continue." "OK"
  89.     ReadFile PIPE:OptyCDPlayer
  90.    ENDIF
  91.  ENDIF
  92.  
  93. ENDIF
  94.